home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / System / Chassis 6.0 ƒ / HelpWindowProc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-09-22  |  3.6 KB  |  119 lines  |  [TEXT/KAHL]
  1. /************************************************************************************/
  2. /*    HelpWindowProc                                                                    */
  3. /************************************************************************************/
  4.  
  5. #include "MyHeaders.h"
  6.  
  7. short HelpWindowProc()
  8. {
  9.     short        HelpWindRetCode = 0;
  10.     short        workPart;
  11.     short        h,v;
  12.     Rect    sizeRect;
  13.     ControlHandle    workControlHandle;
  14.     
  15.     SetPort (windTbl[1].windPtr);            /* set as the grafPort                */
  16.  
  17.     workPoint = myEvent.where;
  18.     GlobalToLocal(&workPoint);
  19.  
  20.     switch (myEvent.what)                        /* how did I get here?                */
  21.         {
  22.         case (mouseDown):                        /* MouseDown?                        */
  23.             switch (myMouseWhere)                /*   What part of window?            */
  24.                 {
  25.                 case (inContent):                /*     content region:                */
  26.                     workRect = (**helpList).rView;            /* view area of list    */
  27.                     workRect.right += 16;                    /* plus scroll bar        */
  28.                     if (PtInRect(workPoint, &workRect))        /* if in the list area    */
  29.                         {
  30.                         workBoolean = LClick (workPoint, myEvent.modifiers, helpList);
  31.  
  32.                         for (j=0; j<helpCount; j++)    /* find which cell is on    */
  33.                             {
  34.                             helpCell.h = 0;
  35.                             helpCell.v = j;
  36.                             if (LGetSelect(FALSE, &helpCell, helpList))
  37.                                 break;
  38.                             }
  39.  
  40.                         if ((helpCell.v != helpPrev)
  41.                             && (j < helpCount))
  42.                             {
  43.                             helpPrev = helpCell.v;
  44.                             helpHandle = GetResource('TEXT', 7700 + helpCell.v);
  45.                             HLock (helpHandle);
  46.                             helpLong = SizeResource(helpHandle);
  47.                             EraseRect (&(**windTbl[1].windTEH[0]).viewRect);
  48.                             TESetText (*helpHandle+32, helpLong-32,
  49.                                     windTbl[1].windTEH[0]);
  50.                             HUnlock (helpHandle);
  51.                             ReleaseResource (helpHandle);
  52.                             TECalText (windTbl[1].windTEH[0]);
  53.                             if ((**windTbl[1].windCntlH[0]).contrlValue > 0)
  54.                                 TEScroll (0, (**windTbl[1].windCntlH[0]).contrlValue,
  55.                                         windTbl[1].windTEH[0]);
  56.                             myActionProc (windTbl[1].windCntlH[0], 0);
  57.                             InvalRect (&(**windTbl[1].windTEH[0]).viewRect);
  58.                             }
  59.                         }
  60.                     else
  61.                         {
  62.                         workPart = FindControl (workPoint,        /* check for control*/
  63.                                 windTbl[1].windPtr,
  64.                                 &workControlHandle);
  65.                         if (workPart)                    /* if so, track it            */
  66.                             {
  67.                              if (workPart != inThumb)    /* if not in thumb: my proc    */
  68.                                                      /* to scroll and reset thumb    */
  69.                                                      /* on the basis of the scroll    */
  70.                                 TrackControl (workControlHandle, workPoint,
  71.                                         (ProcPtr) -1);
  72.                                 
  73.                             else                    /* in thumb: use native routine    */
  74.                                 {                    /* then invoke my proc to        */
  75.                                                     /* scroll on the basis of thumb    */
  76.                                 k = GetCtlValue (workControlHandle);
  77.                                 TrackControl (workControlHandle, workPoint, NIL);
  78.                                 k -= GetCtlValue (workControlHandle);
  79.                                 myActionProc(workControlHandle, (short) workPart);
  80.                                 }
  81.                             }
  82.                         }
  83.                 break;
  84.                 
  85.                 case (inDrag):                    /*     drag region:                    */
  86.                     DragWindow (windTbl[1].windPtr,
  87.                                 myEvent.where, &myDragRect);
  88.                 break;
  89.                 
  90.                 case (inGoAway):                /*     goaway region:                */
  91.                     if (TrackGoAway (windTbl[1].windPtr, myEvent.where))
  92.                         WorkRetCode = HelpCloseProc();
  93.                 break;
  94.                 }
  95.              
  96.         break;
  97.         
  98.         case (activateEvt):
  99.             j = (short) BitAnd(myEvent.modifiers, activeFlag);
  100.  
  101.             if (j)                                /* if activate...                    */
  102.                 {
  103.                 WorkRetCode = MenuUpdate(ProcHelp);                    /* set menus    */
  104.                 ShowControl (windTbl[1].windCntlH[0]);
  105.                 HiliteControl (windTbl[1].windCntlH[0], 0);
  106.                 LActivate (TRUE, helpList);
  107.                 }
  108.             else                                /* if deactivate...                    */
  109.                 {
  110.                 HiliteControl (windTbl[1].windCntlH[0], 255);        /* unhilite        */
  111.                 HideControl (windTbl[1].windCntlH[0]);        /* hide (to match L/M)    */
  112.                 LActivate (FALSE, helpList);
  113.                 }
  114.         break;
  115.         }
  116.  
  117.     return HelpWindRetCode;
  118. }
  119.